home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / FILENAME ZAP.bas < prev    next >
BASIC Source File  |  2000-01-01  |  5KB  |  59 lines
  1. 5  REM  <CTRL-M><CTRL-M>==================<CTRL-M>FILENAME ZAP<CTRL-M>BY BERT KERSEY<CTRL-M>BEAGLE BROS<CTRL-M>==================<CTRL-J>
  2. 19  DIM A(31),B(31)
  3. 20  PRINT "<CTRL-D>NOMONICO": TEXT : HOME :V = 6:H = 11:M = 255:Q =  -16384:Q$ =  CHR$(34):U = Q +48:G$ =  CHR$(7)
  4. 30  SPEED= 234: INVERSE : HTAB 11: PRINT " FILENAME ZAP ": NORMAL : PRINT : HTAB 11: PRINT "BY BEAGLE BROS"
  5. 40  VTAB 6: HTAB 1: CALL  -958: PRINT "SELECT TYPE OF FILE NAME TO CREATE:": PRINT : PRINT "  <V> VISIBLE (FLASH & INVERSE OPTIONAL)": PRINT "  <I> INVISIBLE (FILE CODES OPTIONAL)": PRINT 
  6. 42  PRINT "      SELECT V OR I:  (OR Q TO QUIT)";: HTAB 21: GET A$: PRINT A$: IF A$ < >"Q"  AND A$ < >"V"  AND A$ < >"I"  THEN 40
  7. 43  IF A$ = "Q"  THEN  SPEED= 255: END 
  8. 45  IF A$ = "I"  THEN 1000
  9. 50  VTAB 4: HTAB 1: CALL  -958: FLASH : VTAB 6: HTAB 11: PRINT " ": VTAB 9: HTAB 11: PRINT " ": NORMAL 
  10. 52  VTAB 6: HTAB 1: PRINT "OLD NAME: ": VTAB 9: PRINT "NEW NAME: ": GOSUB 9999
  11. 62 V = 9:H = 11:M = 255: GOSUB 666
  12. 70 V = 6:H = 11: GOSUB 666: GOSUB 605
  13. 80  NORMAL : VTAB 12: HTAB 1: CALL  -958: PRINT : HTAB 11: PRINT "TYPE MODE: NORMAL": HTAB 11: PRINT "---------------------": HTAB 12: PRINT "CTL-N = NORMAL": HTAB 12: PRINT "CTL-I = INVERSE": HTAB 12: PRINT "CTL-F = FLASH"
  14. 85  HTAB 11: PRINT "---------------------": HTAB 12: PRINT "<RTN> = CHANGE LINES": HTAB 12: PRINT "<ESC> = FINISH": HTAB 11: PRINT "---------------------"
  15. 90 K =  PEEK(Q): IF K <128  THEN 90
  16. 100  POKE  -16368,0: VTAB V: HTAB H: FOR I = 1 TO 2:S =  PEEK(U): NEXT : GOSUB 500: GOTO 90
  17. 500  IF K >159  THEN 560
  18. 505  VTAB 13: HTAB 22: IF K = 134  THEN  FLASH : PRINT "FLASH";: CALL  -868:M = 127: GOTO 605
  19. 510  IF K = 137  THEN  INVERSE : PRINT "INVERSE";: CALL  -868:M = 63: GOTO 605
  20. 520  IF K = 142  THEN  NORMAL : PRINT "NORMAL";: CALL  -868:M = 255: GOTO 605
  21. 530  IF K = 136  THEN H = H -(H >11): GOTO 605
  22. 540  IF K = 141  THEN  GOSUB 666:V = V +3 -6 *(V = 9):H = 11: GOTO 605
  23. 550  IF K = 155  THEN  GOSUB 666: GOTO 800
  24. 560  IF K = 172  THEN K = 174
  25. 580  IF H <12  AND K < >149  AND K <192  AND M = 255  THEN  PRINT G$;: VTAB V +1: HTAB H: PRINT "ILLEGAL": FOR I = 1 TO 222: NEXT : GOSUB 666: GOTO 605
  26. 600  VTAB V: HTAB H: PRINT  CHR$(K -128):H = H +(H <40)
  27. 605  GOSUB 666: IF M = 127  THEN  FLASH 
  28. 610  IF M = 255  THEN  NORMAL 
  29. 620  IF M = 63  THEN  INVERSE 
  30. 625  VTAB V +1: HTAB H: PRINT "^"
  31. 630  RETURN 
  32. 666  NORMAL : VTAB V +1: HTAB 11: PRINT "..............................": RETURN 
  33. 800  VTAB 13: HTAB 11: CALL  -958: NORMAL : PRINT "ALL CORRECT (Y/N)? ";: GET A$: IF A$ < >"Y"  THEN  NORMAL : GOTO 52
  34. 810  FOR I = 1674 TO 1703:A(I -1673) =  PEEK(I): NEXT : FOR I = 1074 TO 1103:B(I -1073) =  PEEK(I): NEXT 
  35. 820  VTAB 6: HTAB 1: CALL  -958: PRINT " RENAME ";: FOR I = 1 TO 30: POKE 1671 +I,A(I): IF A(I) < >160  THEN  FOR K = 1 TO 3:S =  PEEK(U): NEXT 
  36. 822  NEXT 
  37. 830  FOR I = 1703 TO 1671  STEP  -1: IF  PEEK(I) = 160  THEN  NEXT 
  38. 840 J = I +1: POKE J,172:B = 0: FOR I = J +1 TO 1703: POKE I,B(I -J):B = B +1: IF B(I -J) < >160  THEN  FOR K = 1 TO 3:S =  PEEK(U): NEXT 
  39. 842  NEXT 
  40. 845  IF B >29  THEN 900
  41. 850 B = B +1: FOR I = 1792 TO 1792 +30 -B: POKE I,B(B):B = B +1: IF B(B) < >160  THEN  FOR K = 1 TO 3:S =  PEEK(U): NEXT 
  42. 852  NEXT 
  43. 900  VTAB 13: HTAB 1: PRINT "USING THE RIGHT-ARROW AND <REPT> KEYS,  TRACE OVER THE ABOVE DOS COMMAND.       TYPE ";Q$;"RUN";Q$;" TO MAKE A CHANGE.": VTAB 5: SPEED= 255: END 
  44. 999  REM <CTRL-J><CTRL-J>INVISIBLE<CTRL-J>
  45. 1000 Q$ =  CHR$(34): VTAB 4: HTAB 1: CALL  -958: PRINT : INVERSE : PRINT " INVISIBLE FILE NAME ": NORMAL : PRINT : PRINT "DO YOU WANT FILE CODES": PRINT "VISIBLE OR INVISIBLE? (V/I):";: GET A$: PRINT A$: IF A$ < >"V"  AND A$ < >"I"  THEN 1000
  46. 1005 BS$ =  CHR$(8):BS = 1: IF A$ = "I"  THEN BS = 8
  47. 1010  VTAB 10: HTAB 1: CALL  -958: PRINT "SELECT CODE CHARACTER:": PRINT "  MUST BE ALPHABETICAL CHARACTER          OR ASCII VALUE 64-95": VTAB  PEEK(37) -2: HTAB 23: GET C$: PRINT C$: IF  ASC(C$) <64  OR  ASC(C$) >95  THEN 1010
  48. 1012 X$ = C$
  49. 1020  VTAB 11: HTAB 1: CALL  -958: PRINT : PRINT "OLD NAME: ..............................": VTAB 12: HTAB 10: INPUT " ";F$: IF  LEN(F$) = 0  THEN 1020
  50. 1025  FOR I = 1 TO BS:C$ = C$ +BS$: NEXT 
  51. 1030  PRINT : PRINT "O.K.? (Y/N):";: GET A$: PRINT A$: IF A$ < >"Y"  THEN 1000
  52. 1050  PRINT : PRINT "<CTRL-D>RENAME ";F$;",";C$
  53. 1060  VTAB 14: HTAB 1: CALL  -958:Q$ =  CHR$(34): PRINT "FILE RENAMED. TO ACCESS, RUN THIS...": PRINT : PRINT "10 A$=";Q$;X$;Q$;": REM CODE LETTER": PRINT "20 H$=CHR$(8)": IF BS >1  THEN  PRINT "25 H$=H$+H$+H$+H$+H$+H$+H$+H$"
  54. 1070  PRINT "30 A$=A$+H$"
  55. 1080  PRINT "40 PRINT CHR$(4);";Q$;"LOAD ";Q$;";A$": PRINT "50 REM OR ANY APPROPRIATE DOS COMMAND"
  56. 9998  SPEED= 255: NORMAL : END 
  57. 9999 T = 0: FOR X = 1290 TO 1303:T = T + PEEK(X): NEXT : IF T < >2737  THEN  HOME : NEW 
  58. 10000  RETURN 
  59. 65535  REM   <CTRL-M><CTRL-M>==================<CTRL-M>FILENAME ZAP<CTRL-M>BY BERT KERSEY<CTRL-M>BEAGLE BROS<CTRL-M>==================<CTRL-J>